inherited fListProduto: TfListProduto
  Left = 386
  Top = 217
  Caption = 'Listagem de Produto'
  OldCreateOrder = True
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    inherited SpeedButton1: TSpeedButton
      OnClick = SpeedButton1Click
    end
    inherited SpeedButton2: TSpeedButton
      OnClick = SpeedButton2Click
    end
    inherited SpeedButton3: TSpeedButton
      OnClick = SpeedButton3Click
    end
  end
  inherited Panel2: TPanel
    inherited edtLocalizar: TEdit
      OnKeyPress = edtLocalizarKeyPress
    end
  end
  inherited DBGrid1: TRxDBGrid
    DataSource = dsProduto
    OnDrawColumnCell = DBGrid1DrawColumnCell
    Columns = <
      item
        Expanded = False
        FieldName = 'CODIGO'
        Title.Caption = 'C'#243'digo'
        Width = 51
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'DESCRICAO'
        Title.Caption = 'Descri'#231#227'o'
        Width = 303
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'VALOR_UNIT'
        Title.Alignment = taRightJustify
        Title.Caption = 'Valor'
        Width = 86
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'SALDO'
        Title.Alignment = taRightJustify
        Title.Caption = 'Estoque'
        Width = 71
        Visible = True
      end>
  end
  object dsProduto: TDataSource
    DataSet = qryProduto
    Left = 144
    Top = 136
  end
  object qryProduto: TIBOQuery
    Params = <>
    DatabaseName = 'C:\Delphi7\Integrado\Dados\BANCO.GDB'
    IB_Connection = dm.base
    RecordCountAccurate = True
    SQL.Strings = (
      'select * from consulta_produto')
    FieldOptions = []
    Left = 248
    Top = 120
    object qryProdutoCODIGO: TIntegerField
      FieldName = 'CODIGO'
    end
    object qryProdutoDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      Size = 100
    end
    object qryProdutoSITUACAO: TStringField
      FieldName = 'SITUACAO'
      Size = 1
    end
    object qryProdutoVALOR_UNIT: TBCDField
      FieldName = 'VALOR_UNIT'
      DisplayFormat = '##,###,#0.00'
      Size = 2
    end
    object qryProdutoCUSTO_UNIT: TBCDField
      FieldName = 'CUSTO_UNIT'
      Size = 2
    end
    object qryProdutoSALDO: TBCDField
      FieldName = 'SALDO'
      DisplayFormat = '##,###,#0.00'
      Size = 2
    end
  end
end
